home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 25 / AACD 25.iso / AACD / Programming / yaec / examples / alibtest.e next >
Encoding:
Text File  |  2001-08-12  |  186 b   |  10 lines
  1.  
  2. /* example of using an amigalib function */
  3.  
  4. MODULE 'amigalib'
  5.  
  6. PROC main()
  7.    DEF a, seed=$F0987601
  8.    FOR a := 0 TO 100 DO WriteF('random val = \d\n', seed := FastRand(seed))
  9. ENDPROC
  10.